home *** CD-ROM | disk | FTP | other *** search
/ Wild Blue Yonder 1: 50 Years of Gs & Jets / Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso / control / panel.dir / 00731_Script_731 < prev    next >
Text File  |  1994-08-29  |  691b  |  25 lines
  1. on goBack
  2.   
  3.   global backArrowH, backArrowV, backArrowR, backArrow, ¼
  4.          panelBackArrowPos, panelBackArrowNeg, plane, source, sourceFrame
  5.   
  6.   if inCircle( backArrowH, backArrowV, backArrowR ) then
  7.     
  8.     set the castNum of sprite backArrow = panelBackArrowNeg
  9.     updateStage
  10.     
  11.     repeat while the stillDown
  12.       if not inCircle( backArrowH, backArrowV, backArrowR ) then
  13.         set the castNum of sprite backArrow = panelBackArrowPos
  14.         updateStage      
  15.       else nothing
  16.     end repeat
  17.     
  18.     if inCircle( backArrowH, backArrowV, backArrowR ) then
  19.       go to frame sourceFrame of movie source
  20.     else nothing
  21.     
  22.   end if
  23.   
  24. end goBack
  25.